%% main code for Markov policy

clear all;
clc;
close all;
warning off;

T1_frac = 0.5; % T1_frac*log(T1),starting point for T1 during the transition, fraction of Tss1
n     =  2; % number of countries
ns      =  1;
beta   = 1/(1+0.1);     % discount factor
theta  = 2;
sigma = 0;
gL      = 0.02;
dbar   = 1.1;
delta = 1-1/(1+gL);

rhoa   = 0.95;
std_ea = 0.1;
L = ones(n,1);
betas = ones(ns,1)/ns;

rho   = beta*(1-delta);
rbest = delta/(theta*(1-beta*(1-delta))+delta);

ncountries=n;
nsectors = ns;

alpha = [1;0.9];

main_notForDynare_solveSS;

mpara(1) = ncountries;
mpara(2) = nsectors;
mpara(3) = beta;
mpara(4) = theta;
mpara(5) = sigma;
mpara(6) = gL;
mpara(7) = dbar;
mpara(8) = delta;
mpara(9) = L(1);
mpara(10) = L(2);
mpara(11) = alpha(1);
mpara(12) = alpha(2);
mpara(13) = rhoa;
mpara(14) = std_ea;
mpara(15) = extax_ss;
mpara(16) = lrss;
mpara(17) = T1_frac*log(Tss(1));
mpara(18) = log(Tss(2));


save setpara_ramsey mpara

dynare Ramsey_1s2c_perfect2;

